home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / pgm_ing / restore / loader.cls next >
Text File  |  1996-01-08  |  974b  |  37 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4. END
  5. Attribute VB_Name = "Loader"
  6. Attribute VB_Creatable = True
  7. Attribute VB_Exposed = True
  8. '***************************************************
  9. ' Property Variables of Loader class
  10. '***************************************************
  11. ' This class is connected to the AfterNewProject FileControl
  12. ' event and does the actual job of loading the previous project.
  13.  
  14. Public VBInstance As VBIDE.Application
  15. Public NewProjectName As String
  16. Public Sub AfterNewProject(projectname As String)
  17.  
  18. Dim PrjTemplate As ProjectTemplate
  19. Static bDone As Boolean
  20.  
  21. If Not bDone And FileExists(NewProjectName$) Then
  22.   bDone = True 'Prevent endless loop
  23.   Set PrjTemplate = VBInstance.Application.LoadProject(NewProjectName$, True)
  24. End If
  25.  
  26. End Sub
  27.  
  28. Function FileExists(filename As String) As Integer
  29.  
  30. Dim i As Integer
  31. On Error Resume Next
  32.  
  33. i = Len(Dir$(filename))
  34. FileExists = Not Err And Not (i = 0)
  35.  
  36. End Function
  37.